home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / tspa3260.zip / TSUNTK.INT < prev    next >
Text File  |  1992-08-26  |  2KB  |  57 lines

  1. (*
  2. Timo Salmi UNiT K
  3. A Turbo Pascal unit of MsDos 4.0+ specific routines
  4. All rights reserved 26-Aug-92
  5.  
  6. This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
  7. NON-INSTITUTIONAL purposes, provided it is not changed in any way. For
  8. ANY other usage, such as use in a business enterprise or a university,
  9. contact the author for the terms of registration.
  10.  
  11. The units are under development. Comments and contacts are solicited. If
  12. you have any questions, please do not hesitate to use electronic mail for
  13. communication.
  14. InterNet address: ts@uwasa.fi         (preferred)
  15. Bitnet address:   SALMI@FINFUN.BITNET
  16.  
  17. The author shall not be liable to the user for any direct, indirect or
  18. consequential loss arising from the use of, or inability to use, any unit,
  19. program or file howsoever caused. No warranty is given that the units and
  20. programs will work under all circumstances.
  21.  
  22. Timo Salmi
  23. Professor of Accounting and Business Finance
  24. Faculty of Accounting & Industrial Management; University of Vaasa
  25. P.O. BOX 297, SF-65101 Vaasa, Finland
  26. *)
  27.  
  28. unit TSUNTK;
  29.  
  30. (* ======================================================================= *)
  31.                           interface
  32. (* ======================================================================= *)
  33.  
  34. uses TSUNTB,    { TSUNTK needs internally the number conversion routines }
  35.      {$IFDEF VER40}
  36.      TSUNT45,
  37.      {$ENDIF}
  38.      Dos;
  39.  
  40. (* Returns from which drive the system was booted, requires MsDos 4.0+,
  41.    else returns '.' *)
  42. function BOOTDRFN : char;
  43.  
  44. (* Get disk serial number.  Requires MsDos 4.0+.
  45.    Else, or on an error, returns an empty string
  46.    The default drive can be pointed to by using 0 *)
  47. function GETSERFN (drive : char) : string;
  48.  
  49. (* Set disk serial number.  Requires MsDos 4.0+.
  50.    Else, or on an error, sets the status. See TSUNTJ.TST for the codes
  51.    For safety allows the operation for drives A and B only *)
  52. procedure SETSER (drive : char; serial : string; var status : integer);
  53.  
  54. (* A special get disk volume label.  Requires MsDos 4.0+. *)
  55. function GETVOLFN (drive : char) : string;
  56.  
  57.